home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Interactive CD Sampler / Microsoft Interactive CD Sampler.iso / DEMOS / C_Automp / AUTOTP / IMD.CST / 00011.ls < prev    next >
Encoding:
Text File  |  1996-07-16  |  585 b   |  20 lines
  1. on resetCur ID
  2.   -- Copyright 1995 Interactive Media Design, Inc.
  3.   -- resets the cursor of sprites in list spriteCur1 or spriteCur2
  4.   -- ID indicates which list to use. Default is spriteCur1
  5.   global spriteCur1, spriteCur2, spriteCurTool, spriteCurCust
  6.   if voidP(ID) then
  7.     set ID = 1
  8.   end if
  9.   if ID = "tool" then
  10.     set curList = value("spriteCurTool")
  11.   else if ID = "cust" then
  12.     set curList = value("spriteCurCust")
  13.   else
  14.     set curList = value("spriteCur" & ID)
  15.   end if
  16.   repeat with x in curList
  17.     set the cursor of sprite x = 0
  18.   end repeat
  19.   set curList = []
  20. end